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FUNCIONES PREDEFINIDAS 


RANDOMIZE([NÜMERO]). 


Inicializa el generador de nümeros aleatorios, que 
utilizaremos posteriormente en la función 
Rnd( ). Opcionalmente recibe un número como 
parámetro que sirve al generador como valor 
inicial o semilla para la creación de estos 
números. 


RND([NUMERO]). 


Devuelve un numero aleatorio de tipo Single, 
que será menor que 1, pero mayor o igual а 
cero. 


Dim Contador As Integer 
Dim Aleatorio As Single 
Randomize() 
For Contador = 1 To 10 
Aleatorio = Rnd() 
Console.WriteLine("Número generado: {0}", Aleatorio) 
Next 


Si necesitamos que el número aleatorio esté comprendido еп un 
intervalo de números enteros, utilizaremos la siguiente fórmula. 


Int((LímiteSuperior - Limitelnferior + 1) * Rnd() + Límitelnferior) 


Ejemplo: Crear 10 nümeros aleatorios comprendidos entre el 
intervalo de los nümeros 7 y 12. 


Dim Contador As Integer 
Dim Aleatorio As Single 
Randomize() 
For Contador = 1 To 10 


Aleatorio = Int((12 - 7 + 1) * Впа() + 7) 
Console.WriteLine("Número generado: {0}", Aleatorio) 


Next 
Console.ReadLine() 


САОЕМА ОЕ САВАСТЕҢЕ5 
LEN(CADENA). 


Dim Longitud As Integer 


Longitud = Len("comprobar cuantos caracteres hay") 
Console.WriteLine("La cadena tiene {0} caracteres", Longitud) ' 


SPACE(NÚMERO). 


Devuelve una cadena de espacios en blanco, de 
una longitud igual al número 
pasado como parámetro. 


Dim ConEspacios As String 


ConEspacios = "Hola" & Space(7) & "a todos" 


Console.WriteLine("La cadena con espacios tiene el 
valor:" & ConEspacios) 


LEFT(CADENA, LONGITUD). 


Esta función extrae, comenzando por la parte 
izquierda de Cadena, una subcadena de 
Longitud de caracteres. 


RIGHT(CADENA, LONGITUD). 


Esta función extrae, comenzando por la parte 
derecha de Cadena, una subcadena de Longitud 
de caracteres. 


Ejemplos de Left( ) y Right( ). 


Dim Cadlzquierda As String 

Dim CadDerecha As String 

Cadlzquierda = Left(" Especial", 3) 

Console.WriteLine("Resultado de la función Left(): 
10)", Cadlzquierda) ' Esp 

CadDerecha = Right("Especial", 3) 

Console.WriteLine("Resultado de la función Right(): 
10)", CadDerecha) ' ial 


MID(CADENA, INICIO [, 
LONGITUD]). 


Extrae de Cadena, comenzando en la posición 
Inicio, una subcadena. Opcionalmente podemos 
utilizar el parámetro Longitud, para indicar el 
largo de la subcadena. En caso de no utilizar este 
ültimo parámetro, la subcadena se obtendrá hasta 
el final. 


Ө 


Dim MiCadena As String 
Dim SubCadena As String 
MiCadena = "El bosque encantado" 
SubCadena = Mid(MiCadena, 6,4) 


Console.WriteLine("Subcadena de longitud 4: 10)", 
SubCadena) 


' sque 
SubCadena = Mid(MiCadena, 11) 


Console.WriteLine("Subcadena hasta el final: 10}", 
SubCadena) ' encantado 


LTRIM(CADENA), RTRIM(CADENA), 
TRIM(CADENA). 


Estas funciones eliminan de una cadena, los 
espacios en blanco a la izquierda en el caso de 
LTrim( ); los espacios en blanco a la derecha en el 
caso de RTrim(); o los espacios en blanco a ambos 
lados Trim( ). 


Dim CadEspacios As String 

Dim CadResultante As String 

CadEspacios = "bbbbBarcobb" 

CadResultante = LTrim(CadEspacios) ' "Barcobb" 
CadResultante = RTrim(CadEspacios) ' "bbbbBarco" 
CadResultante = Trim(CadEspacios) ' "Barco" 


UCASE(CADENA), 
LCASE(CADENA). 


Estas funciones, convierten la cadena pasada como 
parámetro a mayúsculas y minúsculas 
respectivamente. 


Dim Cadena As String 

Dim CadMay As String 

Dim CadMin As String 

Cadena = "Vamos a Convertir En Mayúsculas Y 
MinúscuLAS" 

CadMay = UCase(Cadena) 

CadMin = LCase(Cadena) 


' "VAMOS А CONVERTIR EN MAYUSCULAS Y 
MINUSCULAS" 

Console.WriteLine("Conversión a mayúsculas: {0}", 
CadMay) 

' "Vamos a convertir en mayusculas y minúsculas" 
Console.WriteLine("Conversión a minúsculas: 40)" 
CadMin) 
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EJERCICIO 1 


о Disehe un programa que genere números 
aleatorios en el intervalo de -100 a 100, 
hasta obtener el numero cero, muestre todos 
los nümeros generados. 


EJERCICIO 2 


о Construir una función que devuelva una 
cadena compuesta de cierta cantidad 
caracteres del mismo valor ejemplo una 
cadena de 20 asteriscos, etc. 


Longitud | — | 
Caracter | — 


Cadena 


|... salir | 


о Public Class Form1 
Function repcadena(ByVal | As Integer, ByVal c As Char) As String 
Dim cadena As String 
Dim contador As Integer 
cadena = "" 
For contador = 1 То | 
cadena = cadena + C 
Next 
repcadena = cadena 
End Function 


о O O O O O O о 


о Private Sub Button1 Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button1.Click 


Dim caracter As Char 
Dim longitud As Integer 
Dim rpta As String 
longitud = TextBoxl.Text 
caracter — TextBox2.Text 
rpta = repcadena(longitud, caracter) 
TextBox3.Text = rpta 
End Sub 


о O O O O O O O 


EJERCICIO 3 


о Disene un programa que genere 
aleatoriamente la notas de una practica 
calificada de 20 alumnos de una sección y 
muestre por cada nota tantos asteriscos 
como indica la nota. 
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Public Class Form1 


Private Sub Button1 Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Button1.Click 
Dim |, NOTA(19) As Integer 
Dim C As String 
Randomize() 
For | = O То 19 
NOTA(I) = Int((21) * Rnd()) 
С=“” 
Оо 
С=С+“*” 
Х=Х+1 
Loop Until X = МОТА(!) 
ListBox1.Items.Add(NOTA(l) € " " € C) 
Next 
End Sub 
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End class 


EJERCICIO 4 


о Disene un programa que simule el 
lanzamiento simultáneo de tres dados hasta 
obtener 6 en los tres dados y determine 
cuantos lanzamientos simultáneos fueron 
necesarios efectuar 
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Public Class Form1 


Private Sub Button1 Click(sender As System.Object, e As 
System.EventArgs) Handles Button1.Click 


Dim D, C As Integer 
Randomize() 
Do 
D1  Int(6 * Rnd() + 1) 
D2 = Int(6 * Rnd() + 1) 
D3 = Int(6 * Rnd() + 1) 
ListBox1.Items.Add(D1 € " " & D2& " " € рз) 
С=С+1 
Loop Until 01 = 6 And 02 =6 And D3 = 6 
TextBox1.Text = C 
End Sub 
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End Class 


• Simular cien tiradas de dos dados у contar 
las veces que entre los dos suman 10. 


PROBLEMA-06 


* Hacer un diagrama de flujo у un 
programa en Visual Basic tal que, en 
una matriz bidimensional de M filas y 
N columnas se rellene con nümeros 
enteros generados aleatoriamente 
entre 50 y 100 y luego ingrese un 
numero entero cualquiera y diga 
cuantas veces el numero se 
encuentra en la matriz 


015ейе un programa que genere números 
aleatorios en el intervalo de 10 a 99 hasta obtener 
un número cuya suma de sus cifras sea igual a 4o 
6. 
Muestre los números conforme se vayan 
generando y muestre al final: 
eLa cantidad de números generados. 
*El mayor numero generado 
*El menor numero generado. 


— 


* Disene un programa que genere 
aleatoriamente los sueldos de 120 
empleados de una empresa con valores en 
el intervalo de s/. 800 a s/. 1700 y 
determine: 

* El sueldo promedio 

* El sueldo máximo 

* El sueldo mínimo 


° El numero de empleados que ganen un 
sueldo inferior a S/. 1000 


EJERCICIO - NÚMEROS ALEATORIOS 


s) Diseñe un programa que simule varios 
lanzamientos de un dado hasta obtener un seis. 
Muestre los puntajes del dado conforme se vayan 
generando y muestre al final cuantos lanzamientos 
fueron necesarios efectuar. 

9) Disene un programa que simule el lanzamiento 
simultáneo de tres dados hasta obtener 6 en los 


tres dados y determine cuantos lanzamientos 
simultáneos fueron necesarios efectuar. 


10) Simular cien tiradas de dos dados y contar las 
veces que entre los dos suman 10. 


11) Disene un programa que genere aleatoriamente las 
notas de una práctica calificada para 20 alumnos de 
una sección e imprima por cada nota tantos, 
asteriscos como indique la nota. 


12) Disehe un programa que genere números aleatorios en el 
intervalo de -50 a 50 hasta obtener un número igual а -25 о 
igual a 25. Muestre los números conforme se vayan generando 
у muestre al final los números máximos у mínimos que fueron 
generados. 

13) Disehe un programa que genere números aleatorios en el 
intervalo de 10 a 99 hasta obtener un número cuya suma de 
sus cifras sea igual a 4 o 6. Muestre los números conforme se 
vayan generando y muestre al final: 

e La cantidad de números generados. 
* El mayor número generado 
* El menor nümero generado. 

14) Disefe un programa que genere números aleatorios en el 
intervalo de -1000 a 1000 hasta obtener un nümero en el 
intervalo de -500 a 500 o hasta obtener 100 nümeros, lo que 
ocurra primero. Muestre los nümeros conforme se vayan 
generando y muestre al final: 

о La cantidad de números generados. 
o El mayor nümero positivo generado 


o El menor nümero positivo generado 


